*** Do File for Paper ***

** Table 1 **
clear
use "C:\Users\David Macdonald\Dropbox\Final PSRM Trust and Foreign Aid Support\Clean Cumulative ANES 1948 to 2020.dta"

oprobit Spending_Foreign_Aid Scale4_Trust_Govt01 Age Female White Parents_Native_Born College Home_Ownership Married High_Income Daily_Newspaper ///
Partisanship01 Ideology01 Index_Egalitarianism01 Index_Traditionalism01 Isolationism Combo_Trust_People FT_Poor01 ///
National_Econ_Retro01 Personal_Econ_Retro01 i.Region i.Year, r
outreg2 using tab.tex, dec(3) sideway asterisk(se) replace 

oprobit Spending_Foreign_Aid Scale4_Trust_Govt01 Age Female White Parents_Native_Born College Home_Ownership Married High_Income Daily_Newspaper ///
Partisanship01 Ideology01 Index_Egalitarianism01 Index_Traditionalism01 Isolationism Combo_Trust_People FT_Poor01 ///
National_Econ_Retro01 Personal_Econ_Retro01 Immig_Levels01 i.Region i.Year, r
outreg2 using tab.tex, dec(3) sideway asterisk(se) append

** Figure 1 **
clear
use "C:\Users\David Macdonald\Dropbox\Final PSRM Trust and Foreign Aid Support\Clean Cumulative ANES 1948 to 2020.dta"

oprobit Spending_Foreign_Aid Scale4_Trust_Govt01 Age Female White Parents_Native_Born College Home_Ownership Married High_Income Daily_Newspaper ///
Partisanship01 Ideology01 Index_Egalitarianism01 Index_Traditionalism01 Isolationism Combo_Trust_People FT_Poor01 ///
National_Econ_Retro01 Personal_Econ_Retro01 i.Region i.Year, r
margins, at(Scale4_Trust_Govt01=(0(.125)1))
marginsplot, addplot(hist Scale4_Trust_Govt01, percent yaxis(2) yscale(alt axis(2)))

** Table 2 **
clear
use "C:\Users\David Macdonald\Dropbox\Final PSRM Trust and Foreign Aid Support\Clean Cumulative ANES 1948 to 2020.dta"

oprobit Spending_Foreign_Aid c.Scale4_Trust_Govt01##c.Isolationism ///
Age Female White Parents_Native_Born College Home_Ownership Married High_Income Daily_Newspaper ///
Partisanship01 Ideology01 Index_Egalitarianism01 Index_Traditionalism01 Isolationism Combo_Trust_People FT_Poor01 ///
National_Econ_Retro01 Personal_Econ_Retro01 i.Region i.Year, r
outreg2 using tab.tex, dec(3) sideway asterisk(se) replace 

** Table 3 **
clear
use "C:\Users\David Macdonald\Dropbox\Final PSRM Trust and Foreign Aid Support\Clean Panel Sample ANES 1992 to 1996.dta"

reg Scale_Trust_Govt_1996_01 Scale_Trust_Govt_1994_01 Foreign_Aid_1994_01, r
reg Foreign_Aid_1996_01 Scale_Trust_Govt_1994_01 Foreign_Aid_1994_01, r

clear
use "C:\Users\David Macdonald\Dropbox\Final PSRM Trust and Foreign Aid Support\Clean Panel Sample ANES 2000 to 2004.dta"

reg Scale_Trust_Govt_2004_01 Scale_Trust_Govt_2002_01 Foreign_Aid_2002_01, r
reg Foreign_Aid_2004_01 Scale_Trust_Govt_2002_01 Foreign_Aid_2002_01, r

** Table 4 **
clear
use "C:\Users\David Macdonald\Dropbox\Final PSRM Trust and Foreign Aid Support\GSS Combined 2006 to 2014 FE Panel Data.dta"

reg Cut_Aid i.person Con_Govt01, cluster(person)